(Fset_buffer_modified_p): Don't lock or unlock

if buffer-file-name is nil.

diff --git a/src/buffer.c b/src/buffer.c
index e2aa5818ff15593f2a1f78027a422f6439e791b8..1089872ebe768601325f4c49df66a22709dd7a8b 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -807,7 +807,8 @@ A non-nil FLAG means mark the buffer modified.")
      If buffer becoming unmodified, unlock the file.  */
 
   fn = current_buffer->file_truename;
-  if (!NILP (fn))
+  /* Test buffer-file-name so that binding it to nil is effective.  */
+  if (!NILP (fn) && ! NILP (current_buffer->filename))
     {
       already = SAVE_MODIFF < MODIFF;
       if (!already && !NILP (flag))